|
|
|
|
|
|
|
The sample program is quite straightforward. The DEVMODE structure is converted by a simple translation of short to VB Integer, DWORD to VB Long, and BYTE to VB Byte. |
|
|
|
|
|
|
|
|
' DisplayModes Puzzle
' Copyright © 1998 by Desaware Inc. All Rights Reserved
Option Explicit
' size of a device name string
Private Const CCHDEVICENAME = 32
' size of a form name string
Private Const CCHFORMNAME = 32
Private Type DEVMODE
dmDeviceName(CCHDEVICENAME) As Byte
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName(CCHFORMNAME) As Byte
dmLogPixels As Integer
dmBitsPerPel As Long
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
dmICMMethod As Long
dmICMIntent As Long |
|
|
|
|
|